home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue68 / sync / Receive.dpr < prev    next >
Encoding:
Text File  |  2001-02-28  |  645 b   |  32 lines
  1. //TGpFileMessage demo - receiving part
  2.  
  3. program Receive;
  4. {$APPTYPE CONSOLE}
  5. uses
  6.   SysUtils,
  7.   GpFileSync;
  8.  
  9. var
  10.   msg    : TGpFileMessage;
  11.   msgBuf : pointer;
  12.   msgLen : integer;
  13.   msgText: string;
  14.  
  15. begin
  16.   Writeln('Waiting...');
  17.   msg := TGpFileMessage.Create('demo.msg');
  18.   try
  19.     if msg.Receive(5000,msgBuf,msgLen) then begin
  20.       if msgLen > 0 then begin
  21.         SetLength(msgText,msgLen);
  22.         Move(msgBuf^,msgText[1],msgLen);
  23.         Writeln('Received: ',msgText);
  24.       end
  25.       else
  26.         Writeln('Empty message?');
  27.     end
  28.     else
  29.       Writeln('No message');
  30.   finally FreeAndNil(msg) end;
  31. end.
  32.